home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
biz
/
demo
/
think214.lzh
/
fword.thnkr
< prev
next >
Wrap
Text File
|
1989-12-02
|
737b
|
26 lines
/****************************************************************/
/* routine to advance cursor to next word */
/* Rexx errors are reported as RC= in the error message box */
/* The return results of this program are reported on the */
/* clipboard. */
/****************************************************************/
trace off
options results
'get cursor'
statement=result
if rc = 0 then do
'cursor fetch'
i=result
j=index(statement,' ',i+1)
if j = 0 then exit 1
do while j <= length(statement)
if substr(statement,j,1) ~= ' ' then do
'cursor set' j-1
exit 0
end
j=j+1
end
return 2
end
return 3